home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 36 / PC Gamer IT CD 36 2-2.iso / VIGDEMO / data1.cab / Assets / scripts / antisensor.e < prev    next >
Text File  |  1998-09-21  |  1KB  |  72 lines
  1.  
  2.  
  3. int Initialize(string type) {
  4.     global real gInRadius;
  5.     global real gOutRadius;
  6.     global int gNetwork = 0;
  7.     global string gMessage = "dummy";
  8.     global real gDelay = 1.0;
  9.     global int gLineOfSight = 0;
  10.     Reset("dummy");
  11. }
  12.  
  13. int Reset(string dummy)
  14. {
  15.     wakeupTime = 0.01;
  16.  
  17.     gInRadius = 50.0;
  18.     gOutRadius = 90.0;
  19.     SetCollidableProperties(thisObject,1,0);
  20.     SetStyle(thisObject,5);
  21.     return 0;
  22. }
  23.  
  24. int start(string dummy)
  25. {
  26.     TimedEvent(1);
  27. }
  28.  
  29. int lineofsight(string dummy)
  30. {
  31.     int value;
  32.     value = str2int(dummy);
  33.     gLineOfSight = value;
  34. }
  35.  
  36. int TimedEvent(int input) 
  37. {
  38.     real time;
  39.     time = GetTime(thisObject);
  40.  
  41.     wakeupTime = time + gDelay;
  42.  
  43.     map objInList;
  44.     objInList = QuerySphere(thisObject,gInRadius,1,gLineOfSight);    
  45.  
  46.     map::iterator ix;
  47.     map::iterator iy;
  48.  
  49.     ix = begin(objInList);
  50.     iy = end(objInList);
  51.  
  52.     if (ix == iy)
  53.     {
  54.         SendMessage(thisObject,gOutRadius,gNetwork);
  55.     }
  56. }
  57.  
  58. int inradius(string str)
  59. {
  60.     gInRadius = Str2Real(str);
  61. }
  62.  
  63. int network(string str)
  64. {
  65.     gNetwork = Str2Int(str);
  66. }
  67.  
  68. int outradius(string str)
  69. {
  70.     gOutRadius = Str2Real(str);
  71. }
  72.